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1.  INTRODUCTION 


The  program  DISAS  is  one  of  the  programs  written  to  support  the 
computer  graphics  facilities  of  Combat  Effectiveness  Group  (C.E.G)  at 
the  Aeronautical  Research  Laboratories. 

The  system  upon  which  this  program  operates  is  a  local-area- 
network  running  under  the  STAR-11  operating  system.  It  incorporates 
a  PDP11/35  minicomputer  as  host  and  a  number  of  micro-computers  as 
satellites.  The  satellite  that  is  used  by  C.E.G  is  a  PDP11/23  running 
under  the  RT-11  operating  system.  It  in  turn  acts  as  host  to  a  SANDERS 
Graphic-7  vector  graphics  device  whose  processor  emulates  the 
instruction  set  of  a  PDP11/34  minicomputer.  Reference  1  describes  the 
function  of  the  Graphic-7  processor  including  its  programming,  data 
communication  and  image  generation.  Reference  2  describes  the  use  of 
the  graphic-7  coordinate  converter.  The  supported  hard-copy  facility 
is  a  Versatec  electrostatic  printer/plotter  Model  V80  which  runs  under 
control  of  the  PDPll/35  host  computer  in  stand-alone  mode. 

The  software  package  which  controls  the  display  of  images  on  the 
Graphic-7  screen  is  called  Fortran  Support  Package(FSP)*  and  resides 
on  the  PDP/11  microcomputer.  The  purpose  of  this  package  is  to 
convert  the  image  processing  instructions  from  the  user's  program  into 
graphics  instructions  which  are  recognized  by  the  Graphic-7  graphics 
processor.  It  then  prepares  these  instructions  for  transmission  to  the 
graphics  processor.  Reference  3  describes  the  use  of  the  Fortran 
Support  Package. 

The  Versatec  V80  plotting  software  package  is  called  Versaplot  + 
and  also  exists  on  the  PDPll/23.  Reference  4  is  the  user's  manual  for 
this  software  package. 

The  purpose  of  the  program  DISAS  is  to  obtain  a  hard-copy  plot  on 
the  Versatec  printer/plotter  of  the  image  displayed  on  the  Graphic-7 
screen.  The  set  of  Graphic-7  instructions  that  generated  the  displayed 
image  from  which  the  hard-copy  plot  is  to  be  developed  must  have  been 
dumped  from  Graphic-7  memory.  This  is  the  input  file  to  the  program 
DISAS  and  exists  on  a  PDPll/23  disk  file  with  a  user-selected  name. 


*  Fortran  Support  Package  (FSP)  is  proprietary  to  Sanders  Associates  Inc. 
+  Versaplot  is  proprietary  to  VERSATEC  Inc. 


2.  Program  DISAS  User's  Guide 


The  program  DISAS  is  comprised  of  the  two  source  modules 
DISAS1.F0R  and  DISAS2.KAC.  DISASl.FOR  includes  the  bulk  of  the  program 
and  is  written  in  Fortran  while  DISAS2.MAC  includes  the  subroutine  to 
identify  an  instruction  word  and  is  written  in  the  assembly  language 
MACRO-11. 

To  produce  the  executable  file  DISAS.EXE  follow  the  compile  and 
link  procedure  shown  in  Fig  2.1.  Then  to  run  the  program  type  to  the 
monitor  prompt  RUN  DISAS.EXE 

The  input  file  to  this  program  consists  of  machine-code 
instructions  which  have  been  dumped  to  the  PDP11/23  from  the  Graphic-7 
memory.  One  source  of  instigation  of  this  dump  is  from  the  selection 
of  the  appropriate  option  to  the  main  menu  in  program  COMBAT.  For  a 
complete  discussion  on  this  aspect  see  Reference  5.  Section  4.1  gives 
a  description  of  the  format  of  this  input  data  file. 

When  DISAS  is  run,  the  user  is  prompted  for  the  filename  of  the 
input  file.  This  is  the  only  user-interaction  required  during  one  run 
of  DISAS. 

The  assembly  language  program  PASS1.DAT  and  the  Fortran  program 
PASS2.DAT  are  produced  by  DISAS.  PASSl.DAT  is  produced  by  the  first 
phase  of  the  program  and  is  used  as  input  to  the  second  phase  which 
produces  the  file  PASS2.DAT.  PASS2.DAT  is  a  Fortran  program  which 
incorporates  the  Versatec  plotting  commands  to  produce  the  hard-copy 
plot  of  the  required  image.  It  is  compiled,  linked  and  run  as  shown  in 
Fig  2.2. 

The  files  produced  by  PASS2  are  VECTR1.BIN  and  PARM.BIN.  These 
files  are  used  as  input  to  the  program  RASH  which  is  the  plotting 
control  program  supplied  with  the  Versaplot  software  package.  An 
example  of  the  process  to  obtain  a  hard-copy  plot  using  program  RASH 
is  shown  in  Fig  2.3,  and  an  example  of  the  output  produced  by  this 
process  is  shown  in  Fig  2.4. 


.FORTRAN  DISAS1 
.MACRO  DISAS2 

.LINK/EXE ’.DISAS.EXE  DISAS1  ,DISAS2 


Fig  2.1  The  compile  and  link  procedure  to  build  the 
executable  file  DISAS.EXE 
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.ass  la:  VPO: 

.ass  la:  lp: 

.ass  la:  6 

.FORT  PASS2.DAT 

. LINK/EXE:VPQ  VP0(PASS2,MAPPED,PEPLIB) 

.RUN  PASS2 

-  where  LA  is  the  logical  area  of  the  PDP11/23  disk  where 
the  appropriate  files  exist. 


Fig  2.2  The  compile, link  and  run  sequence  of  the 
program  PASS2.DAT 


Step  1.  Copy  the  plot  files,  VECTR1.BIN  and  PARM.BIN,  to  a  floppy  disk 
which  has  the  plotting  control  program  RASH  on  it  by  following 
the  sequence: 

.COPY  PARM.BIN.VECTR1.BIN  DLO: 

.  <BREAK> 

0173OOOG 

.COPY  PARM.BIN.VECTRl.BIN  FDD: 

-  where  FDD  is  the  floppy  disk  drive  chosen 


Step  2.  Unload  the  foreground  of  the  STAR- 11  network  by  following  the 
sequence: 

.EXIT 

~F 

~C 

"B 

UNLOAD  F 
.ASS  FDD:  VPO: 

.RUN  VPO : RASM 

-  where  the  symbol  represents  the  control  key  of  the 
keyboard.  The  required  sequence  is  obtained  by  holding 
the  control  key  down  while  pressing  the  associated  key 


Fig  2.3  The  sequence  to  produce  a  hard  copy  plot  once  the 
plot  files  are  produced  on  the  PDP11/23. 


MlflfiCC  3  V  **3 


Fig,  2.4(a)  Example  output  by  DISAS 


Fig.  2.4(b)  Example  output  by  OISAS 
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3.  PROGRAM  DESCRIPTION  and  DESIGN 


There  are  two  phases  to  the  program  DISAS.  The  first  phase 
produces  an  assembly  language  program  from  the  input  file  of  Graphic-7 
machine  code  instructions  and  produces  the  file  named  PASS1.DAT. 

The  second  phase  uses  PASS1.DAT  as  input  and  translates  the  assembly 
instructions  into  a  Fortran  program  which  utilizes  the  Versatec 
plotting  primitives.  Fig.  3.1  shows  an  hierarchical  structure  chart  of 
the  program. 

There  are  nineteen  Graphic-7  control  and  display  instructions 
accounted  for  in  program  DISAS.  Fig  3.2  lists  and  describes  the  format 
of  these  instructions. 


3 . 1  Phase  1 


The  user  enters  the  filename  of  the  file  of  Graphic-7  machine 
instructions  in  reply  to  a  prompt.  Section  4.1  describes  the  format  of 
this  file.  The  program  reads  through  the  data  file  and  produces  an 
array  of  Graphic-7  source  picture  numbers  and  their  start  addresses. 
When  this  is  completed  the  data  file  is  rewound  back  to  its  start. 

Fig  3.3  shows  this  process. 

The  input  file  is  then  re-read,  one  line  of  10  words  at  a  time 
until  a  block  of  100  words  is  read  or  the  end-of-picture  is  detected. 
Each  word  of  this  block  is  identified  and  its  op-code  and  argument/s 
are  dis3tissembled  and  output  to  the  file  PASS1.DAT  as  appropriate.  The 
start  of  each  picture  is  recognized  and  a  label  is  written  to  the  file 
PASS1.DAT.  If  the  word  was  recognized  as  a  CALL  SUBROUTINE  instruction 
then  the  next  word  is  the  start  address  of  the  destination  picture.  A 
search  is  made  through  the  array  of  picture  numbers  and  start 
addresses  for  a  match  for  this  address.  The  associated  picture  number 
is  the  destination  picture.  Fig  3.4  gives  a  description  of  this 
sequence. 
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CALL 

RTRN 

JMPR/NOOP 

LDDZ 

LDDP 

LDXA 

LDXR 

DRXA 

DRXR 

DRYA 

DRYR 

MVXA 

MVXR 

MVYA 

HVYR 

PPLR 

LOT  I 

TEXT 

CHAR 


0  0  0 

0  1  0 

0  0  1 

X  X  X  X  X  X 

Subroutine  Address 

0 

0  0  0 

0  1  0 

0  1  1 

X  X  X  X  X  X 

0 

0  0  0 

1  0  1 

+ 

Jump  ammount 

0 

0  0  1 

0 

11  Bits  Data 

0 

0  0  1 

1 

11  Bits  Data 

0 

0  1  0 

0 

+ 

X  coordinate 

0 

0  1  0 

1 

+ 

X  increment 

0 

0  1  1 

0 

+ 

X  coordinate 

0 

0  1  1 

1 

4* 

X  increment 

0 

1  0  0 

0 

+ 

Y  coordinate 

0 

1  0  0 

1 

+ 

Y  increment 

0 

1  0  1 

0 

+ 

X  coordinate 

0 

1  0  1 

1 

± 

X  increment 

0 

1  1  0 

0 

± 

Y  coordinate 

0 

1  1  0 

1 

± 

Y  increment 

1 

1 

-  5  Bits  Y 

0 

0 

is  Bits  X 

1 

1 

0  0 

0  0  0 

0  0  1 

Increment 

1 

2nd  ASCII 

1 

1st  ASCII 

1 

0  0  1 

1  1  B  1 

1 

ASCII  char 

Call  Subroutine 

Return 

Jump  Relative/  No  Op 

Load  Z-axia  Register 

Load  Display  Param.  Register 

Load  X  absolute 

Load  DX  relative 

Draw  X  absolute 

Draw  DX  relative 

Draw  Y  absolute 

Draw  DY  relative 

Move  X  absolute 

Move  DX  relative 

Move  Y  absolute 

Move  DY  relative 

Point  Plot  relative 

Load  Text  Increment  register 

Draw  two  text  characters 

Draw  single  text  character 


Fig.  3.2  Graphic-7  control  and  display  instructions 
incorporated  in  DISAS 


DO  UNTIL  END-OF-FILE 

READ  PICTURE  NUMBER  AND  ITS  START  ADDRESS 
LOAD  THESE  VALUES  INTO  ARRAY 

DO  UNTIL  END-OF-PICTURE 

SKIP  OVER  LINES  OF  DATA 

END  DO 

END  DO 

REWIND  FILE  BACK  TO  START 


Fig  3.3  Pseudo  code  of  operation  to  build  up  array  of 
picture  numbers  and  start  addresses. 


DO  UNTIL  END-OF-FILE 

READ  picture  number  and  Write  this  label  to  PASSl.DAT 

DO  UNTIL  END-OF-PICTURE 

DO  UNTIL  100  words  read  in  or  END-OF-PICTURE 

READ  line  of  10  words  and  append  to  ARRAY! I) 

SEARCH  through  these  10  words  for  RETURN  instruction 
IF  FOUND  THEN  END-OF-PICTURE 
END  DO 

DO  FOR  ALL  words  in  this  block 
IDENTIFY  its  op-code 
DISSASSEMBLE  arguments  as  appropriate 
OUTPUT  dissassembled  instruction  to  PASSl.DAT 
END  DO 

END  DO 
END  DO 

CLOSE  INPUT  FILE 


Fig  3.4  Pseudo  code  for  dissassembler  process  of  phase  1 
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3 . 2  Phase  2 


The  file  of  assembled  instructions,  PASS1.DAT  is  reopened  as 
READONLY , 

The  first  action  of  Phase  2  is  to  write  Fortran  code  to  the  MAIN 
section  of  PASS2.DAT  which  will  initialize  the  Versatec  plotter  and 
enable  an  eight  inch  box  to  be  drawn  on  the  hard  copy  plot  to 
represent  the  Graphic-7  screen.  Then  Fortran  code  to  call  Picture  1 
is  written  to  the  MAIN  section  because  all  Graphic-7  control  by  FSP  is 
determined  from  Picture  1 . 

Three  small  Fortran  subroutines  are  written  to  PASS2.DAT  to 
enable  relative  move  and  draw  instructions  and  symbols  to  be  plotted. 
These  are  called  VRELM,  VRELD  and  VSYMB  respectively.  See  Fig  3.5  for 
a  listing  of  these  subroutines. 

This  second  phase  reads  each  line  of  the  file  in  turn, 
identifying  the  op-code  and  isolating  the  argument/s  as  appropriate. 
Some  instructions  require  that  the  succeeding  line  be  processed  in 
order  to  complete  the  disassembly  process.  The  assembly  instruction 
is  dissassembled  into  an  equivalent  Fortran-compatible  Versatec 
plotting  command  and  then  output  to  the  file  PASS2.DAT.  PASS2.DAT  is 
in  the  format  of  a  Fortran  program.  Fig  3.5  shows  the  sequence  of 
phase  2  of  the  disassembler  process. 


SUBROUTINE  VRELMC IXREL. IYREL) 

CALL  WHERE ( XNOW , YNOW , DFACT ) 

T0X=XN0W+  ( (FL0AT( I XREL)/ 1023.0 )«8. 0  > 
T0Y=YN0W+  ( ( FLOAT ( IYREL ) / 1023 . 01*8.0) 
CALL  PLOT ( TOX , TOY , 3 ) 

RETURN 

END 

SUBROUTINE  VRELD ( IXREL. IYREL) 

CALL  WHEREOCNOW, YNOW, DFACT) 

T0X-XN0W+  ( ( FLOAT ( IXREL )/ 1 023 . 0  >*8 . 0  > 
T0Y=YN0W+  ( (FL0AT( IYREL)/1023.Q)*8.0) 
CALL  PL0T(T0X,T0Y,2) 

RETURN 

END 


Fig  3.5  a.  Listing  of  the  subroutines  VRELM  and  VRELD 


SUBROUTINE  VSYMBCHT, I TEXT , ROT , NC ) 

CALL  WHERE ( XPOS , YPOS , DFACT ) 

CALL  SYMBOL( XPOS, YPOS, HT, I TEXT, ROT, NC) 
IF(ROT .GT . 80 . 0 )YPOS=YPOS+(HT*0 . 8 ) 

I K( ROT . LT . 1 0 , 0 ) XPOS=XPOS+ ( HT« 0 . 8 ) 

CALL  PLOT ( XPOS , YPOS , 3 ) 

RETURN 

END 


Fig  3.5  b.  Listing  of  the  subroutine  VSYMB 


WRITE  Fortran  code  to  draw  box 
WRITE  Fortran  code  to  initialize  Versatec  plotter 
WRITE  Fortran  subroutines  to  enable  move  and  draw  instructions 
and  symbol  plotting 

DO  UNTIL  END-OF-FILE 

DO  UNTIL  complete  Versatec  comand  built  up 
READ  line  of  assembly  code  from  PASSl.DAT 
IDENTIFY  this  op-code 
EXTRACT  argument/s  as  appropriate 
BUILD  UP  Versatec  plot  command 
END  DO 

WRITE  Versatec  plot  command  to  PASS2.DAT 
END  DO 


Fig  3,6  Pseudocode  describing  the  second  phase 
of  the  disassembler 
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4.  FILE  FORMATS 


There  are  two  files  produced  by  DISAS  and  one  file  required  as 
input.  The  produced  files  are  called  PASS1.DAT  and  PASS2.DAT  while  the 
input  file  name  is  user  defined. 


4.1  Input  File 


This  file  consists  of  the  dump  of  the  instructions  from  the 
Graphic-7  memory  which  generated  the  image  seen  on  the  Graphic-7 
screen  at  the  selected  time. 

The  file  is  organized  into  segments  where  each  segment  represents 
one  Fortran  Support  Package  picture.  The  picture  number  and  its  start 
address  are  included  at  the  start  of  the  segment  as  a  title  line. 

The  data  within  each  segment  is  in  the  format  of  10  octal  words 
per  line  with  the  RTRN  instruction  (octal  2300)  being  the  final  word 
in  the  segment.  Fig  4.1  is  an  example  of  the  input  file. 


4.2  PASS1.DAT 


PASS1.DAT  is  the  file  produced  by  the  first  phase  of  DISAS.  It  is 
in  the  format  of  a  Graphic-7  assembly  language  program,  it  has  labels 
representing  picture  or  subroutine  start  locations  and  instructions 
consisting  of  a  four-character  op-code  and  octal  argument/s  as 
applicable.  Fig  4.2  shows  an  example  of  such  a  file. 


4.3  PASS2.DAT 


This  is  the  resultant  Fortran  program  which  will  generate  the 
hard-copy  plots  on  the  Versatec  plotter.  It  contains  the  subroutines 
VRELM  and  VRELD  which  allow  the  utilizaton  of  relative  move  and  draw 
instructions  and  the  subroutine  VSYMB  to  allow  character  symbols  to  be 
drawn  on  the  Versatec  plotter. 

The  Graphic-7  instructions  are  now  represented  by  Fortran 
statements  utilizing  the  equivalent  Versaplot  plotting  primitives. 

Fig  4.3  shows  an  example  segment  of  the  file  PASS2.DAT. 


Picture  1  -  Start  address  3250 
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20202 

63057 

120240 

127260 

100260 

20202 

63021 

120240 

127260 

100260 

2300 

P 1 Cture 

6  -  Start  address 

5530 

1401  1 

140117 

23716 

63235 

164720 

167754 

120364 

164766 

1  73745 

167760 

167351 

120364 

14010 

140112 

237  16 

63153 

171701 

171640 

162745 

120356 

171346 

166757 

141640 

120325 

120243 

2371  6 

631(5 

162723 

164755 

166255 

1  72341 

171345 

16634  1 

143240 

153317 

120272 

20276 

63115 

162744 

171347 

162745 

120363 

2100 

6040 

2100 

6350 

2  300 

P  f cture 
■>  ■■  aa 

7  -  Start  address 

6040 

4.  JO 

P (Cture 

3  -  Start  address  i 

6350 

20000 

6031  0 

20000 

40144 

20000 

63634 

20J00 

43470 

23470 

60000 

23634 

4  2000 

20.44 

60000 

20310 

40000 

2  300 

P  (Cture 

3  -  Start  address 

6660 

1  4010 

140112 

23021 

63153 

171307 

162351 

164640 

1  72356 

171345 

160766 

135354 

23374 

63153 

167365 

172351 

120363 

23007 

63115 

161723 

16634  1 

135345 

2300 

P  1  ctur  e 

10  -  Start  address 

7170 

I40ie 

140112 

23300 

63153 

130240 

131655 

100260 

2300 

Fig 


4.1  Example  of  the  input  file  to  DISAS 


PIC1 


P  1C 2 


L  0  X  A 

l  "6466 

LOOP 

I  7  ’6*0 

YA 

1  7  65  4  3 

LOOZ 

l  7u37 . 

TE*T 

163.1*5 

CALL 

9  I C  2 

TEXT 

U3.157 

call 

P  IC3 

TEXT 

156.144 

CA-..1, 

PICA 

TEXT 

163.  40 

call 

p  ;c9 

LOXA 

454 

C«L  L 

P  !C  1  0 

MVYA 

176512 

call 

p  i  z\: 

lOXA 

454 

C&lL 

p  TCI* 

CRYA 

1 77000 

call 

PIC1  7 

LOXA 

620 

call 

P  IC  1  8 

^VYA 

177000 

call 

P  I C  1  9 

LOXA 

620 

CAi  L 

p  [  ;  2  0 

CP  YA 

176512 

R  T  y  n 

L  0  X  A 

500 

MVYA 

1  7654  3 

LO  <A 

177000 

TEXT 

103.125 

MV  YA 

726 

TEXT 

40 .  43 

LD  <A 

7  7  7 

TEXT 

6  1.  40 

DP  /A 

726 

LOXA 

644 

LOOP 

1  l 

MVYA 

1  76543 

LOT  I 

177717 

TEXT 

103. 125 

LO  <A 

l  76757 

TEXT 

40.  43 

MV  1 A 

740 

TEXT 

62.  40 

TEXT 

l 06 .151 

p  trh 

text 

154.145 

P  IC3  : 

TEXT 

72 .  40 

LOOP 

11 

LOXA 

I 76252 

L  DTI 

I  7771  7 

MV /A 

740 

LOXA 

1 76637 

TEXT 

124.151 

MVYA 

74* 

TEXT 

164.154 

TEXT 

114.1*4 

TEXT 

145.  72 

TEXT 

63.  72 

LDXA 

423 

TEXT 

115.126 

MV /A 

740 

TEXT 

115.  61 

TEXT 

104 . 141 

TEXT 

60.  62 

TEXT 

164.145 

TEXT 

56. 102 

TExT 

72  .  40 

TEXT 

111.116 

L  0  X  A 

550 

LOXA 

176113 

MV  YA 

740 

MVYA 

740 

TEXT 

6  1.  60 

TEXT 

1  15. 1S1 

TEXT 

55, 123 

TEXT 

162.141 

TEXT 

105,120 

TEXT 

147.1*5 

TEXT 

55.  70 

TEXT 

40.  63 

TEXT 

64.  0 

TEXT 

40. 166 

L  0  X  A 

0 

TEXT 

40. 115 

MV  YA 

0 

TEXT 

63.  40 

LDXA 

177000 

TEXT 

40.  40 

MV  YA 

176512 

TEXT 

40.  0 

LOXA 

777 

TEXT 

0.  0 

DR  YA 

176512 

LOOP 

10 

LDXA 

176310 

LOTI 

177712 

mvya 

176512 

LOXA 

1 76512 

L  0  X  A 

1 76310 

MVYA 

1 76663 

CR  YA 

1 76562 

TEXT 

146.145 

LD  XA 

177000 

TEXT 

l 45 . 1 64 

DR  YA 

1  76562 

TEXT 

40. 160 

LOOP 

1  1 

TEXT 

145.162 

LOTI 

177717 

TEXT 

40.154 

LOXA 

1  76  764 

TEXT 

145.156 

MVYA 

1  76543 

TEXT 

147.164 

TEXT 

103. 154 

TEXT 

150.  40 

TEXT 

157.143 

7E  < T 

165.156 

TEXT 

153.  72 

7  E  x  T 

151  .164 

LO<A 

1 76656 

MVYA 

1 76663 

TEXT 

60.  56 

TEXT 

61  .  60 

TEXT 

105,  53 

TEXT 

60.  65 

«t*m 

Fig.  4.2  Example  of  the  file  PASS 1. DA? 
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PROGRAM  PASS2 

CA.L  PLOTS'  0.0.0) 

CAlL  PlOT(0.2,1 .0.-3) 

CAlL  PLOTI0.0.0  0. 3) 

CALL  PlOT( 00.8.0.2) 

C  a  l  L  PLOT<8.0.8.0,2> 

CA.l  PlOTj 8 . 0. 0. 0 . 2 ) 

CAll  PLOT(0. 0.0.0. 2) 

call  pici 

CALL  PlQT ( 8 . 0 , 0 . B .  999) 

st  :p 
end 

S^RCUTINE  V«ElM< I<REL  .  I VREl  ) 

:a.l  UH£R6  ••  <NOW.  VNOW.  dp  act  > 

I  I  .  =  KNOW ♦  (»  FLOAT C  IXREL  )/  1023 . 0 ' *9 . 0) 

t:  i  »vNOV*  ( • f  L  OA  r  <  tYKEL  I / 102 3.0 i *8.0) 
:  A . L  PLOT i TOX . TOY . 3  > 
a  f.  TURN 
END 

coroutine  v«eld< i<rcl . iyrel ) 

CA  L  UH£R£( XNOW.YNOW.DFACT ) 

< (FLOAT! lxR£L)M0230-8.0) 
T  •.  r  aVNOU*  (FLOAT!  I  v  R  E  L  > '  1023.0  *8-0) 
ca.l  plot ( tox . toy . 2 ) 

»E  r‘JPN 


i**  } 

S  ^ROUTINE  VSYMB ( HT . I  TEXT . ROT . NC > 

CAtL  WHERE! xPOS . YPOS . OF  ACT > 

CAlL  SYMBOL  t  XPOS .YPOS . HT . 1  TEXT .rot . mc ) 
IF  {ROT  .GT  .  80.0)  YPOS- YPOSWHT-0  8  ) 
IF.ROT.LT.10.0XPOS*XPOS*<HT»0.8) 

CA.l  PL0T(XP0S.YP0S.3» 

RE  TURN 
ENO 

S  'j  3R  OUT  I  N£  Pici 


ca.l 

P  IC2 

call 

P  l  C  3 

CA.L 

P  IC4 

CAlL 

P  I  C  9 

C  A  •_  L 

P  1C  10 

CA.L 

P  IC12 

:  a.l 

PIC  14 

:  a  .  l 

p  I  C  l  7 

-  A  .  L 

P  IC  1  8 

C  A  .  l 

P  ic;  9 

:  a  .  l 

PIC  20 

»e r  jrn 

t  N 

$  ^ROUTINE  PIC2 
A . l  PLOT(  -0.004,  7 .675.  3) 

:a.l  *>cGT!  7.996.  7 .675.  2) 
CA.l  PlOT<  0-129.  7.754.  3) 
l  T  E  X  T  -  70 

:A  L  VSYMBI0. 10.  ITEXT.  0.0.1) 
I  T  !  <  T  -  7  3 

CA.l  VSYMB* 0  08 .  ITEXT .  0.0,1) 

1  T  :  X  T  »  7  6 

CA.L  VSYMB10-00.  ITEXT.  0.0.1) 
ITEXT  -  69 

CA.L  VSYMB10. 08, ITEXT.  0.0. D 
♦TEXT  -  58 

CA.L  VSYMB<0- 10. ITEXT.  0.0.D 
I  rE X T  •  32 


CALL  VSVMB <B. 10. ITEXT.  0.0.1) 
CALL  PtOT<  1.576.  1.224.  31 

ITEXT  -  83 

CALL  V$YMB(0. 00. ITEXT .  0.0.1) 

ITEXT  -  68 

CALL  VSVMBC0. 08, ITEXT.  0.0.1) 
ITEXT  -  67 

CALL  VS VM0' 0.08, ITEXT.  0.0. D 
ITEXT  •  79 

CAlL  VSYMBf 0. 08 . I  TEXT .  0.0.1) 

ITEXT  -  78 

CALL  VSYHBf 0.08, ITEXT.  0.0.1) 
ITEXT  •  68 

CALI  VSVM8 ' 0 . 08 . 1  TEXT  .  0.0.1) 

ITEXT  «  83 

CALL  VSYMBI0. 08. ITEXT.  0.0.1) 
ITEXT  -  32 

CA.L  VSVMB : 0. 10. ITEXT.  0.0.1) 
CALL  PLOM  6 . 346.  1.41  9.  3  > 

CALL  PLOT!  6  346.  -0.004.  2) 
call  plot (  7.120.  -0.004 .  3  > 

CALL  PLOT!  7.:28.  1-419.  2) 

CALL  PiOTt  6.502.  1.224.  3) 
ITEXT  •  67 

CALL  VSVMB  -'J.  10.  ITEXT.  0.0.1) 
ITEXT  .  85 

CALL  VSYMBC0.  10.  ITEXT.  0.0.1) 
ITEXT  -  32 

CALL  VSVM0(0  10. ITEXT.  0.0.1) 
ITEXT  -  35 

CALL  VSYM0/0. 10. ITEXT.  0.0.1) 
ITEXT  •  48 

CALL  VSYM0(0. 00. ITEXT.  0.0,1) 
ITEXT  -  32 

CALL  VSVMB(0. 10. ITEXT,  0.0.1) 
CALL  PLOT!  7.284.  1.224.  3> 

ITEXT  •  67 

CALL  VSVMB10. 10. ITEXT.  0.0.1) 
ITEXT  -  85 

CALL  VSYM8 < 0. 10. ITEXT.  0.0,1) 
ITEXT  -  32 

CALL  VSYMB'0. 10. ITEXT.  0.0,1) 
ITEXT  -  35 

CALL  VSYM3(0. 10. ITEXT.  0.0.1) 
ITEXT  •  50 

CALI  VSYMBf0. 08. ITEXT.  0.0,1) 
ITEXT  •  32 

CALL  VSVMB''  0.  10  .  ITEXT,  0.0,1) 

return 

ENO 


Fig.  4.3  Example  of  the  file  PASS2.DAT 
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5.  SUBROUTINE  DESCRIPTION 


5.01  PROGRAM  MAIN 

Purpose:  Prepare  the  input  file  and  control  the  flow  of  execution  of 
the  program. 

Method: 

-  Accept  the  filename  of  input  Graphic-7  machine  code  instructions  and 

open  this  file  as  READONLY 

-  Call  subroutine  PASS1  to  control  phase  1  of  program 

-  Call  subroutine  PASS2  to  control  phase  2  of  program 

-  Close  all  open  files 


SUBROUTINES  CALLED: 

PASS1.PASS2 

CALLED  BY*. 

Nil 


5.02  SUBROUTINE  PASS1 


Purpose:  Control  execution  of  phase  1  of  the  program. 

Method: 

-  Open  ttK  output  file  of  phase  1  (PASS1.DAT) 

-  Call  subroutine  PICARY  to  build  the  array  of  picture  nunbers  and 

start  addresses 

-  Read  the  picture  number  from  the  input  file  and  write  the 

appropriate  label  to  PASS1.DAT  for  each  picture 

-  Call  subroutine  GETBLK  to  input  a  block  of  data  words  from  the 

input  file. 

-  Call  subroutine  PROBLK  to  process  this  block 


SUBROUTINES  CALLED: 

PICARY , GETBLK , PROBLK 


CALLED  BY: 

MAIN 


17 


5.03  SUBROUTINE  PICARY 

Purpose:  Load  picture  numbers  and  start  addresses  into  the 
array  PICSAD. 

METHOD: 

-  Read  picture  header  line  including  picture  number  and  start 
address 

-  Call  subroutine  GETBLK  to  skip  over  all  of  this  picture. 

-  Repeat  for  all  pictures  in  the  input  file 

-  Rewind  the  input  file  back  to  its  start 


SUBROUTINES  CALLED: 
GETBLK 

CALLED  BY: 

PASS1 


5.04  SUBROUTINE  GETBLK( ARRAY , NWORDS , ENDPIC , EOF ) 


Purpose:  Input  a  block  of  up  to  100  data  words  from  the  input  file. 

Method: 

-  Read  a  line  of  10  words  from  the  input  file. 

-  If  the  RTRN  instruction,  signifying  the  end  of  this  picture,  is 
found  in  this  line  then  return  to  the  calling  subroutine  with 
the  data  block  read  in 

-  If  the  RTRN  instruction  is  not  found  in  this  line  then  repeat  the 
process  until  either  a  block  of  100  words  read  in  or  the  RTRN 
instruction  is  encountered. 


SUBROUTINES  CALLED: 
Nil 

CALLED  BY: 

PASS1 
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5.05  SUBROUTINE  PROBLK (ARRAY, NWORDS) 


Purpose:  Control  the  processing  of  the  data  block  which  was 

previously  read.  There  are  NWORDS  in  the  current  data  block 
which  is  stored  in  the  array  ARRAY. 

Method: 

-  Call  subroutine  IDOPCD  to  identify  the  op-code  of  the  current 
instruction. 

-  Call  subroutine  GETARG  to  separate  the  argument/s  of  this 
instruction. 

-  Call  subroutine  DISINS  to  dissassemble  and  output  this 
instruction. 


SUBROUTINES  CALLED: 

1POPCD , PROBLK, DISINS 

CALLED  BY: 

PASS1 


5.06  SUBROUTINE  IDOPCD( IWRD, IOP) 


Purpose:  Identify  the  op-code  of  the  current  instruction.  This 
subroutine  is  written  in  MACRO  11. 


Method: 

-  Determine  if  the  instruction  is  one  of  the  op-codes  which  imply 
a  specific  value.  These  op-codes  have  no  arguments  in  this  data 
word  and  are  CALL,  RTRN  and  NOOP. 

-  If  not  then  compare  each  instruction  with  the  specified  range  of 
the  remaining  op-codes  (accounting  for  the  highest  and  the  lowest 
possible  values  for  its  argument/s). 

-  Assign  a  value  to  the  variable  IOP  to  represent  the  matched 
op-code. 

-  If  no  match  found  then  let  IOP=0 


SUBROUTINES  CALLED: 
Nil 

CALLED  BY: 

PROBLK 
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5.07  SUBROUTINE  GETARG Cl WRD, I OP, ARG) 


Purpose:  Return  the  value  of  the  argunent/s,  ARG,  for  the  given 
instruction  in  I WRD  which  has  op-code  number  IOP. 


Method: 

-  If  IOP  equals  0,1, 2, 3  or  19  then  ARG  =  0  (there  are  no  arguments) 

-  If  IOP  lies  between  4  and  15  inclusive  then  the  instruction  is  a 
display  instruction.  The  argunent  is  represented  in  2's 
complement  notation  and  bit  10  is  a  sign  bit. 

ARG- I WRD  -  ( ( IWRD/"4000)*"4000) 


op  code 


2's  complement  argument 


-  If  IOP  =  16  then  the  word  is  an  LOTI  instruction  . 
ARG=IWRD-( ( IWRD/" 1 00 )*"1 00 ) 


1  )l  lo  lo  lo  To  lo  lo  lo  111  text  increment 


-If  IOP  =  17  then  the  word  is  a  TEXT  instruction.  The  arguments 
are  two  ASCII  characters  and  let  the  argument  ARG  equal 
the  whole  word. 

ARG=IWRD 


E 

2nd  character 

1 

1st  character 

-  If  IOP  *  18  then  the  word  is  a  CHAR  instruction.  The  argument  is 
one  ASCII  character. 

ARG=IWRD  -  ( ( IWRD/”200)*"200) 


1  10  10  !l  ll  ll  IB  ll  II 


character 


SUBROUTINES  CALLED: 
Nil 

CALLED  BY: 

PROBLK 
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5.08  SUBROUTINE  DISINS(ARRAY, IW, IWRD, IOP.ARG) 


Purpose:  Write  the  dissassembled  instruction  to  the  file  PASS1.DAT 
in  the  format: 

Op-code,  Argument/s 


Method: 

-  Set  up  a  text  array  of  op-codes  indexed  by  I OP 

-  If  I OP  =  17  then  the  instruction  is  the  TEXT  op-code.  Call 
subroutine  GCHARS  to  separate  the  two  ASCII  characters  from 
the  instruction  word. 

-  Write  the  op-code  followed  by  the  applicable  arguments  to  the 
file  PASS1.DAT 


SUBROUTINES  CALLED: 
GCHARS 

CALLED  BY: 

PROBLK 


5.09  SUBROUTINE  GCHARS (ARG, I CHAR) 


Purpose:  The  current  word  is  a  TEXT  instruction.  This  subroutine 
separates  the  two  ASCII  characters  from  the  word  ARG. 

Method: 

-  Decode  the  integer  word  ARG  into  two  bytes. 

-  Clear  bit  7  of  each  of  these  two  bytes  by 

ICHAR( I )=ICHAR( I )-"200 


SUBROUTINES  CALLED: 
Nil 


CALLED  BY: 

DIS1NS 
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5.10  SUBROUTINE  PASS2 


Purpose:  Control  phase  2  of  the  program. 

Method: 

-  Re-open  PASSl.DAT  as  READONLY 

-  Open  the  output  file  PASS2.DAT 

-  Call  subroutine  SETUPV  to  write  Fortran  code  to  PASS2.DAT  to 
setup  Versatec  plotter  and  enable  relative  move  and  draw 
primatives  and  symbol  plotting. 

-  Input  a  line  of  instructions  from  PASS1.DAT 

-  Identify  this  line  and  its  arguments 

-  Disassemble  this  instruction  into  Fortran  code.  If  the  line  of 
Fortran  code  is  complete  then  write  it  to  PASS2.DAT.  Else  read 
the  next  line  from  PASSl.DAT  and  process  it. 


SUBROUTINES  CALLED: 

SETUPV , GETL I N , WHATOP , DOTOOP , VRSOUT 

CALLED  BY: 

MAIN 


5.11 


SUBROUTINE  SETUP V 


Purpose:  Write  Fortran  code  to  MAIN  section  of  PASS2.DAT  to  enable 
an  eight  inch  box  to  be  drawn  on  the  hard-copy  plot  and  a 
call  to  Picture  1.  Write  Fortran  subroutines  VRELM  and  VRELD 
to  MAIN  to  enable  relative  move  and  draw  primatives  to  be 
executed.  Write  Fortran  subroutine  VSYMBL  to  enable  symbols 
to  be  plotted  on  Versatec  plotter  in  selected  rotation  and 
size. 

Method : 

-  Write  Fortran  code  to  draw  centred  eight  inch  box 

-  Write  Fortran  code  to  call  picture  1.  (CALL  PIC1) 

-  Write  Fortran  subroutine  VRELM 

-  Write  Fortran  subroutine  VRELD 

-  Write  Fortran  subroutine  VSYMBL 


SUBROUTINES  CALLED: 
TRMPLT 

CALLED  BY: 

PASS  2 
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5.12  SUBROUTINE  DOTOOPC LINE, IOP) 


Purpose:  Process  the  op-codes  and  arguments  of  the  current  instruction 
which  was  read  in  from  PASS1.DAT 


Method: 

-  LINE  is  an  eighteen  character  array  read  in  from  PASS1.DAT.  It 
contains  three  fields,  each  of  which  may  or  may  not  be  blank. 

LINEC1)  -  LINEC7)  is  the  LABEL  field 
LINE( 8 )  -  LINE(ll)  is  the  OP-CODE  field 
LINEC12)  -  LINEC18)  is  the  ARGUMENT  field 

-  The  instruction  is  identified  by  the  value  of  IOP 

-  The  arguments  are  decoded  from  the  ARGUMENT  field  as  appropriate 


SUBROUTINES  CALLED: 
Nil 

CALLED  BY: 

PASS  2 


5.13  SUBROUTINE  VRSOUT(IOP) 

Purpose:  Write  the  translated  Fortran  instruction  to  PAS52.DAT 
Method : 

-  The  instruction  and  its  argument/s  have  been  disassembled  by 
subroutine  DOTOOP  and  are  ready  for  output. 

-  The  instruction  is  recognized  by  the  value  of  IOP 

-  The  completed  instruction  is  written  to  PASS2.DAT 

SUBROUTINES  CALLED: 

Nil 

CALLED  BY: 

PASS2 
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5.14  SUBROUTINE  GETLIN( LINE, EOF) 


Purpose:  Read  one  line  of  data  from  the  file  PASS1.DAT 
Method: 

-  Rend  the  fields  of  the  current  line  of  PASS1.DAT  into  the 
array  called  LINE  which  has  been  declared  BYTE  LINE(18). 

-  Set  the  End-of-File  flag  TRUE  if  the  end  of  PASSl.DAT  was 
encountered . 


SUBROUTINES  CALLED: 
Nil 

CALLED  BY: 

PASS  2 


5.15  SUBROUTINE  WHATOPCLINE, IOP) 


Purpose:  Identify  the  Op-code  of  the  instruction  currently  in  the 
array  LINE. 

Method: 

-  Encode  elements  8  to  11  inclusive  of  LINE  onto  the  real  variable 
OCODE. 

-  Search  through  the  array  OPCODE  (which  contains  a  list  of  all 
Op-codes)  for  a  match  with  OCODE. 

-  Set  IOP  to  the  integer  matching  that  identified  Op-code . 

-  If  the  Op-code  is  not  recognized  then  determine  if  this  line  is  a 
label  by  searching  for  a  colon  in  one  of  the  first  seven  elements 
of  LINE. 

-  Set  IOP  =  20  if  a  label  was  recognized. 

-  If  neither  an  Op-code  nor  a  label  was  recognized  then  set  IOP  =  0 


SUBROUTINES  CALLED: 
Nil 

CALLED  BY: 

PASS  2 


/ 


[ 
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5.16  SUBROUTINE  TRMPLT 


Purpose:  Write  a  line  of  code  to  the  file  PASS2.DAT  which  will 
terminate  the  Versatec  printer/plotter. 

Method: 

-  Write  the  code  'CALL  PLOKO. 0,0. 0,999)'  to  the  file  PASS2.DAT 

SUBROUTINES  CALLED: 

Nil 

CALLED  BY: 

SETUPV 


I 
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